home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / areaend.clssa < prev    next >
Text File  |  1995-01-20  |  579b  |  25 lines
  1. /***********************************************************************
  2.   GADGET: "'Zeige Bereichsende'" "5" "26" TYP: "?"
  3.  
  4.   $DAT >>AreaEnd.clssa<<      04.10.1992 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 11
  12.   AltFail=RESULT
  13.  
  14.   GetAnimInfo
  15.   IF RESULT="" THEN Message "'Keine Animation vorhanden.'"
  16.   ELSE DO
  17.     GetArea
  18.     PARSE VAR RESULT . 'TO' f .
  19.     ViewFrame f
  20.   END
  21.  
  22.   FailAt AltFail
  23. exit
  24.  
  25.